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-title serft Screen package for foreign terminals 
-ident ‘v04-000' 
-sbttl copyright notice 


—PARARAARARAAAAAASLALAALALASLALAAL ALAS ELS L ESE RE SESE EERE REESE ES ECCS SEER RSE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

* 

® 

® 
THIS i. arcte 4 ANCE WITH net A_ LICENSE AND MAY BE USED AND oad ® 
ONLY | WITH THE TERMS OF SUCH Tints a AND WITH THE * 
INCLUSION O E COPYRIGHT NOTICE. THIS SOFTWARE OR AWY OTHER * 
COPIES THEREOF NAAT. NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

® 

® 

® 

® 

® 

® 

* 

® 

® 


CP Oe Oe Oe Oe Oe Oe Oe Se Oe ee BH Se Be Oe ee 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ooRPORat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED SY DIGITAL. 
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; PARRA ASAAALALASASLASALALAAS LASALLE EEE SESE RE RE REESE SESE REESE REESE SESE ESE 
"Sbetl Program description 

Facility 
Screen Package for foreign terminal functions 


Environment 


ov 
e 


Native mode, User mode, Shared library routines 


When this repree is Linked, the a 9 should be copied ath 
SYSSLIBRARY:SCRFT.EXE and, if desired, installed to impro 

the image satiootion speed. The senyen B openees will autonat ically 
“‘merge’’ this image into the pcan dress space when 

needed. To Gooup it, simply Link it 1D BUG and define a Logical name 
SCRFT to be the file spec of the test image. NOTE: The deb yoger 

erforms a SEXIT s Stee service ween exit spere ore you will onl 

e able to debug the first invocation of SCRFT. Also note that i 

this is going to be tha with any images etalted with privilege, 

such as SHOW PROC/CONT, PHONE, or MONITOR, SCRFT needs to be installed. 


Author 


Tim Halvorsen, February 1980 
Modified by | 
v03-001 BLS0186 Benn Schreiber 21-Sep-1982 


“” 
— 
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Implement put_line and up scroll. Allow multiple strings 
ke be lencrted into output bu iar. ‘ ° 


SAMPLE _E 
Ss 


-— 
N— 
+ 


base: 
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SAMPLE _ : 
SAMPLE —HOME = *A'a! 
= 

AMPLE EOL = 


11 
16-SEP-1984 17:06:28.06 Page 
-sbttl Symbol Definitions 


Symbol Defintions 


Sscrdef ; Screen package definitions 
= *x08 ; Backspace 

= *x0a 3; Line feed 

= *x0d ; Carriage return 

= *“x1b ; Escape character 

= “xif ; Line/column bias in message 
= “acl ; Left bracket (yt100) 

= x3b : Semi-colon (vt100) 


VT100_SC = “A‘f* ; VT100 set cursor position 

VT100_DWN = “A'M' 3 Mt 4 down scrol 

VT100_E€OS = “A‘J' ; VT100 erase to end of screen 

VT100_EOL = “A*K’ ; VT100 erase to end of Line 
Sc “a'l' ; Sample set cursor position 


Sample set to home and erase screen 
Sample erase to end of screen 
Sample erase to end of Line 


“a‘F* 


“A‘E 


OS 


Macro definitions 


«macro string text,?l1,712 


-save 
-psect _scr$strings,exe,nowrt,pic 
ascii fext 

-restore 


-long 2-11 
slong L1-<,.-4> ; self-relative address 

-endm string 

-macro cane ,6re - Clee) *st. typeny.| attire .negdest’#. Theee, nee 
case'type src, limit,nmode'<<max-base>/2>-1 


-irp ep,<displist> 
-word ep-base 

.endr 

.endm 


-psect _scr$code,exe,nowrt,pic 


3 


| 
OOO eee 


v 
o 
o 
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»sbttl DISPATCHER Dispatch to proper request routine 


This is the main entry point of the image. Dispatch 
.. = prepes screen package routine for the foreign 
erminal. 


Inputs: 


28(ap) = Address of argument List: 
0) Number of longword arguments 
4) Address of SCR argument List 
§ Screen package request # 
Foreign terminal 
6) Address of retbuf descriptor 
0) Address of retlen word 
4) Address of SCRFT data area (32 bytes for use by SCRFT, 
allocated by SCRPKG) 


Nmn——SCOOooO 


~~ ee ee ee ee ee ee 


Outputs: 
Dispatch to routine with: 
ap = Address of SCR argument List 
r 


= Foreign terminal number (biased at zero; ft1=0) 
ril = Address of above argument List 


Se Se Se Se Se Se Se Se ee Se Oe Se Se Se Se Ge Se Oe Se Se Se Se Se He Se ee 


dispatcher: 
eword 9 “m<r2,r3,r4,r5,r6,r11> 


mov | ghee) ri 3; 711 = address of SCRFT args 
callg a4(r115,b*10$ : call with SCR argument List 
re 

10$: word 


0 
clrw a20(r11) 


1 Clear output length 
subl3 OD allie 
ri,# 


rl = Foreign terminal number - 1 
we only handle FT1 and FT2 
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bgequ 08 : ignore others 
case (r11),type=w,<- ; Case on request type 
put_screen,- ; PUT_SCREEN 
get_screen,- ; GET SCREEN 
erase_page,- ; ERASE_PAGE 
erase_line,- ; ERASE LINE 
set_cursor,- ; SET CORSOR 
own_scroll,- ; DOWN SCROLL 
0$,= : SCREEN INFO - always handled by SCR 
; MOVE_CURSOR (not implemented in SCRPKG) 
; SET_SCROLL 
; UP_SCROL 


SCR 
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-sbttl 


r 


POS_OUTPUT 


Calling sequence: 
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16-SEP-1984 17:06:28.04 Page 5 


Insert Line,col in output message 


Branch from CALLed routine 


This routine is used to insert a screen position 
ce 8 poring before writing the message to the 
erminal. 


ess of control string descriptor (address is self-relative) 


is routine. 


Convert to V1100 sequences 


; Save optional argument 


; Case on terminal tyes 
vt100 requires ; in middle 
sample use different bias 


Allocate FAO output buffer 
Save roghesets 

Create descriptor of buffer 
Address of FAO control string 


Push descriptor of string onto stack 
Address of stack arguments 

Column number 

Line number 

Convert to ASCII characters 

Copy length into ASCIC string 

Leave buffer on top of stack 

Restore registers 


Line number 
Column number 
Length of string 


Allocate FAO buffer 
Create descriptor for buffer 


Inputs: 

R1 = Addr 

4(ap) = Line number 

Bap) = Column number 

rii = SCRFT arguments 

1 optional argument to the fao — may be placed 

on the top of the stack on entry to th 

extoasc: 
eascic “!UL;!UL* H 
pos_output: 
mov l (sp),r0 
case Wr 41), type=b, Limit=at,<- 
ite 3 

subl #16,s 3 

pushr #*m<r0,r1> 5 

pushab 9(sp) ; 

pusht #15 

movab hextoasc,ri 3 

movzbl (ri)+,r 

mova r0,-(sp) 3 

mov | sp.r0 : 

pushl 8(ap) 3 
ushl 780) : 
fao.s (r0),8(r0),8(r0) 3 

movb 16(sp),32(sp) 3 
addl a wee ; 

. r a*m<r0,ri> : 
r 0$ 

subb #1,8(ap), (sp) : 
subb 1,4(ap),1(sp) ; 

movb #2,-(sp) 2 
subl #2048,sp 3 

pushl 3 
pusht #2048 

mova (r1),-(sp) : 
addl ri,4(sp) 3 


Move donee tpter of string on stack 


Relocate self-relative address 


eef 
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Optional extra argument 


Addr«ss of counted string 
Insert into ng but tring 

Pop everything ba butter 
Address of descr 

; Make into sel crt aries address 


ro 
? 
Tage lic ee 
novi #16. $0 
subl sp,4(r1) 
brb output 


+ 


e*enen eee eee eee eaeeeaea ee eee 


Ba Se Se Se Se Se Se Se Se Se Se Se Se Se See Se Se Se Se Se Se SH Se 
* 


> 
> 


a] 


A 


4 
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-sbttl OUTPUT Write string to terminal 


terminal without carriage control. 
Calling sequence: 

Branch from CALLed routine 
Inputs: 


ri = Address of etring descriptor (the address is self-relative) 
y 


@20(R11) = number of bytes in output buffer already 


| 
OUTPUT 
This routine writes the specified string to the 


output: 
movzwl @20(r11),=(sp) ; Get Length of output written 
mova ai6(r11),r2 ; Get descriptor of output buffer 
subl (sp),r2 ; Decrease room left in buffer by used 
addl tsp} *-¢5 3; Update pointer to first free 
cmpw (rl),r2 ; Check if enough room in buffer 
bgtr 80$ ; branch if buffer overflow 
addw rh} eeocet}) ; Store jength of output string 
move (r1),a4(r1)0r1),(r3) ; store in output buffer 
incl 8. 3 success 

#ss$_bufferovf,r0 ; set error 


SCRFT.MAR; 1 


PUT_LINE 


Inputs: 


stb sap) 

beal 70 

movl ri,r6 

pushl 

cmpb ee 

bgtru 70 

blssu—s«xw10$ 

mov l ug (ap) -<ep? 
10$: clrq =-(sp 

pushl 4(ap) 

calls #4,w*call_put_screen 

blbc r0,60$ 

mov | “ir 

cmpb ap) 9M 

beql 5° 

mov l (ap),r5 
208: moval w*call_up_scroll,r2 

tstl r5 

beql 40$ 

bgeq 30$ 

mnegl 


r5,r5 
moval w ca} ldoun_scrott.ré 


calls  #0,(r2) 
blbc r0,60 


sobgtr r5, 

40$: movaq b*cr_table(r6],r1 
brw output 

50$: mov | #1,r0 

O$: ret 

O$: 

invarg 
mov l #lib$_invarg,r0 
ret 

cr_table: 
string <<cr>> 
string <'" 
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-Sbttl PUT_LINE Write Line to screen 
This routine writes a message to the terminal 


4(AP) = Address of descriptor of string to output 

8(AP) = (OPTIONAL) rian Pe rm 9 ines to advance after output 
efau 

12(AP) = (OPTIONAL) Text attributes (ignored by this routine) 


gAny gee at all? 
;_if eql no 


;Save terminal type index 
;Assume no attributes passed 
sWere attributes passed? 

; branch if too one args passed 
; branch if no attributes passed 
;Copy user-passed attributes 
sStack column,line = 0,0 

sStack descriptor address 

:Call regular routine 

:Branch if error 

;Assume no Line count 

jWas Line count supplied? 
sBranch if not 

sFetch user Line count 

;Assume - scroll routine 

zAny scrolling to do? 

3; branch if no 

Branch if up scrolling 

sNegative scrolling--make it positive 
; and set other routine 

sreset terminal index 

:Call scrolling routine 

:Branch if error 

sLoop till done 

;Get <cr> eer ing 

; output and return 


;Return success 
Return invalid argument 


3vt100 
;Sample 
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«sbttl ERASE_PAGE Erase to end of screen 


ERASE _PAGE 


This routine § gyses ™~ alg to be erased 
from the peec tied posit t qn to the end of the 
screen. lif the pos? hy s not specified, the 
current screen position is assumed, 


Inputs: 

AP) = Number of arguments 

AP) = Line number (optional) 
AP) = Column number (optional) 


no arguments are specified, the current cursor 
sition is assumed. 


erase_page:, 
s 


(ap) ; Any arguments specified? 
bneq 10 ; Branch if 
movaq b“erase_table(riJ,r1 ; Address of output string 
108 brw output 
movao b*erase_table2(rij,r1 ; Output string with 2 args 
brw pos_output 
erase_table: 3; ERASE TO END OF SCREEN 
string <<esc><lb><vt100_eos>> ; vT100 
string <<esc><sample_eos>> ; Sample 
erase atablez: Mist ERASE FROM position 
STRING <<esc><lb>""!A <vt100_ scd- vt100 


<esc><lb><vt100_eos 


string <<esc><sample_ StS TAC’ *<esc><sample_ eos>>; Sample 


1 
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-Sbttl ERASE_LINE Erase to end of Line 


ERASE _LINE 


This routine § Tied" Na yereen to be erased 
from the. s +. f ig * on to the end of the 
Line. he godt not specified, the 
he Kd ost on is assumed. 


Inputs: 
(AP) = Number of arguments 
4(AP) = Line number Coptional) 
B(AP) = Column number (optional) 


If no arguments are Raerechicithtens the current cursor 
position is assume 


erase_line: 
tstb 


tap) 3 Any Sroyqente specified? 
bneq 10 ; Branch if s 
movaq b*line_tabie(ri),r1 ; Address of output string 
108 brw output 
movaq b*line_table2(rij,ri ; Output string with 2 args 
brw pos_output 
Line_table: ; ERASE TO END . LIne 
otr ine <<esc><lb><vt100_eol>> t100 
ing <'"> phe 
Line_ tabled: ERASE FROM siti 
string <<esc><lb>"!AC'*<vt100_ scd- vt100 


<esc><lb><vt100_eol>>” 
string <‘" ; Sample 


cursor_table: 
string 
string 


SCRFT.MAR;1 
-sbttl SET CURSOR Set cursor position 
: SET_CURSOR 
: This rout ine causes the cu cursor to be moved to 
3 to the specified position 
: Inputs: 
: 4(AP) = Line number 
$ BC AP) = Column number 
set. cursor: 
movaq b*cursor_table(riJ,r1  ; Output string with 2 args 
tw pos_output 


; SET CURSOR 
scoscact ee IAC Xvi i00_2¢2> ; vt100 
<<esc><sample_sc>''!AC™> ; Sample 
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-sbttl DOWN SCROLL Move cursor up, scrolling downward 


DOWN_ SCROLL 


This routine causes the cursor to be moved up 

1 Line to same column of the previous Line. 

If the cursor was on the top Line to begin with, 
it stays where it was, but all the information 
on the screen appears to move down one Line. 

The information that was on the bottom Line of 
the screen is lost and a blank Line appears at 


the top. 
Inputs: 
None 
call_down_scroll: ; CALLx entry to down_scroll 
-word 0 ; Don't need to save registers 
down_scroll: ; 
movaq b“scroli_table[ri],r1  ; Output string with 2 args 
brw output 
scroll_table: ; DOWN SCROLL 
string <<esc><vt100_dwn>> ; vT100 
string <'"’> ; Sample - do nothing 


kK 11 
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TOF 


éall_up_scrolt: 


upscroll_ Sony sei 
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»sbttl UP_SCROLL 
UP _SCROLL 


This routine apes Sy cursor to be goxee down 1 Line to the 
Utne column o ot owing line. If the pereer i“ on the bottom 
ne to — w tk. t stays where it was “ ba aoe in eraet on on 
the screen appears to move up one Line. tno nformation that was 
op Spe ree Line of the screen is lost and a blank Line appears at 
ottom. 


Move cursor down, scrolling upward 


;CALLx entry point 
-wor 


movaq b*upscroll_table(riJ,r1 ;Output string 
brw output 


tring <<Lf>> svt100 = Linefeed 
string <‘'"'> :Sample - do nothing 


TO! 


~ 
9 


.*% 
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SCRFT.MAR;1 
~sbttl PUT_SCREEN _ Write message to terminal 

: PUT_SCREEN 

: This routine is used to write messages to the 

; terminal. 

: Inputs: 

; 4(AP) = Address of descriptor of output string 

; B(AP) = (OPTIONAL) Line number 

3 12(AP) = (OPTIONAL) Column number 

; 16(AP) = (OPTIONAL) Text attributes 

call_put_screen: sCALLx entry point 
eword 0 

put_screen: 
cmpl (ap) #1 ; Check if only one argument 
bleq 5$ ; Branch if no coords given 
tstl 8(ap) 3 coords zero? 
bneq 10$ ; Branch if no--Real coords 

5$: mov l 4(ap),r ; Address of descriptor 
MOvVQ (r1),-(sp) ; Copy descriptor to stack 
subl sp.4(sp) ; and make self-relative 
mov | p.ri ; Address of self-relative desc. 

108: brw output 

: pushl 4(ap) 3; Optional fao argument 

addl #4,ap 3; Pass coords in 4(ap),8(ap) 
movaq b“put_table(r1J,r1 ; Address of fao string 
brw pos_output 

PUT_TABLE: 3; Write with embedded cursor 
string <<esc><lb>""!AC''<vt100_sc>""!AS''> ; vt100 
string <<esc><sample_sc>"'!ACTAS' ; Sample 


+ 


_ 
= 


-sbttl GET_SCREEN Read input string from terminal 


GET_SCREEN 
This routine eccepts input from the terminal into 
a user specified buffer. An optional prompt string 
may be given, 
Inputs: 


4(AP) = Address of buffer descriptor 
= Address of prompt descriptor (optional) 


get_screen: 
cal 


Ltg (ap) ,.g*lib$Sget_input ; Read terminal input 
re 


N 11 
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| 
eee) 


PeSe ee Se Se Se Se Se Se Se Se Se Se Se Se Se Se See Se Se Se Se eee 
ca 


TD, 
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-sbttl set scroll Set scrolling region 


' SET SCROLL 


This routine pots sgroll ing regions, and not implemented in Fhis 
version of SCRFT. nererere f terminal which supports scrolling 
regions is used with SCRF , it will operate Like a non=scrolling 
terminal, such as a VT52 


set_scroll: 


movl #1,r0 
ret 


a 
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-end 


dispatcher 
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